www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/leaveword/admin_movefilter.asp

    <!-- #include file="config.asp" -->
<!-- #include file="style.asp" -->
<!-- #include file="admin_verify.asp" -->



<%

Response.Expires=-1

if isnumeric(Request.Form("filterid")) and Request.Form("filterid")<>"" and (Request.Form("movedirection")="up" or Request.Form("movedirection")="down" or Request.Form("movedirection")="top" or Request.Form("movedirection")="bottom") then
	 filterid1=clng(Request.Form("filterid"))

	set cn=server.CreateObject("ADODB.Connection")
	set rs=server.CreateObject("ADODB.Recordset")
	CreateConn cn,dbtype
	
	rs.Open "SELECT filtersort FROM filterconfig WHERE filterid=" &filterid1,cn
	if rs.EOF=false then
		qid1=rs(0)
		rs.Close
	
		if Request.Form("movedirection")="up" then
			rs.Open "SELECT MAX(filtersort) FROM filterconfig WHERE filtersort<" &qid1,cn
		elseif Request.Form("movedirection")="down" then
			rs.Open "SELECT MIN(filtersort) FROM filterconfig WHERE filtersort>" &qid1,cn
		elseif Request.Form("movedirection")="top" then
			rs.Open "SELECT MIN(filtersort) FROM filterconfig",cn
		elseif Request.Form("movedirection")="bottom" then
			rs.Open "SELECT MAX(filtersort) FROM filterconfig",cn
		end if
		if rs.EOF=false then
			qid2=rs(0)
			rs.Close
			
			if qid2<>"" and qid1<>qid2 then
				rs.Open "SELECT filterid FROM filterconfig WHERE filtersort=" &qid2,cn
				filterid2=rs(0)
				rs.Close

				cn.BeginTrans
				
				select case Request.Form("movedirection")
				case "up","down"
					rs.Open "UPDATE filterconfig SET filtersort=-1 WHERE filterid="&filterid1,cn
					rs.Open "UPDATE filterconfig SET filtersort=" &qid1& " WHERE filtersort="&qid2,cn
					rs.Open "UPDATE filterconfig SET filtersort=" &qid2& " WHERE filtersort=-1",cn
				case "top"
					rs.Open "UPDATE filterconfig SET filtersort=filtersort+1 WHERE filtersort<" &qid1,cn
					rs.Open "UPDATE filterconfig SET filtersort=" &qid2& " WHERE filterid="&filterid1,cn
				case "bottom"
					rs.Open "UPDATE filterconfig SET filtersort=filtersort-1 WHERE filtersort>" &qid1,cn
					rs.Open "UPDATE filterconfig SET filtersort=" &qid2& " WHERE filterid="&filterid1,cn
				end select
									
				cn.CommitTrans
			end if
		else
			rs.Close
		end if
	else
		rs.Close
	end if
	cn.Close
	set rs=nothing
	set cn=nothing
end if

Response.Redirect "admin_filter.asp"
%>